home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / srchhelp.dxr / 00004_close box.ls < prev    next >
Encoding:
Text File  |  2000-01-14  |  357 b   |  15 lines
  1. property ancestor
  2.  
  3. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  4.   if not objectp(descendant) then
  5.     descendant = me
  6.   end if
  7.   ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, descendant)
  8.   return me
  9. end
  10.  
  11. on performFunction me
  12.   global gForgetList
  13.   append(gForgetList, the activeWindow)
  14. end
  15.